To Predict the sentiment of Covid19 tweets

# To Load Libraries

library(tidyverse)
library(rtweet)
library(dplyr)
library(ggplot2)
library(stringr)
library(tidytext)
library(plotrix)
library(radarchart)
library(frequency)
library(wordcloud)
library(syuzhet)
library(caTools)
library(tm)

collect data about covid tweets from the TwitterAPI

library(rtweet)
#covid19_tweets <- search_tweets("#covid19",n=10000,include_rts=FALSE,retryonratelimit=TRUE)

Import the data

sentimentss <- read.csv("C:/Users/jaanu/Downloads/covid19_tweets.csv",stringsAsFactors = F)

Remove unnecessary columns

sentiment <-sentimentss[,c(3,4,5,6,11,12,13,14,32,34,37,42,43,45,64,65,66,67,68,73,74,77,78,79,82,84)]

Observe data types

str(sentiment)

'data.frame':   645048 obs. of  26 variables:
 $ created_at            : chr  "2021-12-01T03:22:30Z" "2021-12-01T03:22:30Z" "2021-12-01T03:22:27Z" "2021-12-01T03:22:25Z" ...
 $ screen_name           : chr  "SpCovid" "chrisfrayer" "OCHNY1" "SH_144000" ...
 $ text                  : chr  "30/11/2021 - Cidade de São Paulo\n\nMédia de óbitos (15 dias): 17 (-1)\nMédia de internados UTI (7 dias): 1"| __truncated__ "â\201¦@Min_Schulerâ\201© your assistant died from #covid19 and you still insist on playing games?! Dispicable! "| __truncated__ "@JimLangevin @CISAJen #BlackLivesMatter #COVID19 #RighttoSurvival #OccupyCapitolHil #BoycottUSAID At 00:00 on N"| __truncated__ "#Ireland, vaccine mandate for healthcare workers..\n#COVID19 https://t.co/EhLhvwp4B4" ...
 $ source                : chr  "Twitter Web App" "Twitter for iPhone" "Twitter Web App" "Twitter Web App" ...
 $ is_quote              : logi  FALSE FALSE FALSE TRUE TRUE TRUE ...
 $ is_retweet            : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
 $ favorite_count        : int  0 0 0 0 2 0 0 2 0 0 ...
 $ retweet_count         : int  0 0 0 0 1 0 0 1 0 0 ...
 $ lang                  : chr  "pt" "en" "en" "en" ...
 $ quoted_text           : chr  NA NA NA "Mandatory Covid-19 vaccination of healthcare workers considered by Nphet https://t.co/Hsxt2tKxCk" ...
 $ quoted_favorite_count : int  NA NA NA 0 1200 417 407 438 1092 2 ...
 $ quoted_followers_count: int  NA NA NA 40 61002 1748 267005 61002 267006 53 ...
 $ quoted_friends_count  : int  NA NA NA 208 2640 2857 6 2640 6 219 ...
 $ quoted_location       : chr  NA NA NA "" ...
 $ place_name            : chr  NA NA NA NA ...
 $ place_full_name       : chr  NA NA NA NA ...
 $ place_type            : chr  NA NA NA NA ...
 $ country               : chr  NA NA NA NA ...
 $ country_code          : chr  NA NA NA NA ...
 $ name                  : chr  "Painel Covid Cidade de São Paulo" "chris frayer" "Occupy Capitol Hill (New York)" "Shaya" ...
 $ location              : chr  "São Paulo - SP" "Treaty One " "New York" "" ...
 $ protected             : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
 $ followers_count       : int  56 2100 454 80 80 80 80 80 80 80 ...
 $ friends_count         : int  22 1733 86 128 128 128 128 128 128 128 ...
 $ favourites_count      : int  7 11903 10 4573 4573 4573 4573 4573 4573 4573 ...
 $ verified              : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...

Change the data types

sentiment$lang <- as.factor(sentiment$lang)
sentiment$quoted_text <- as.factor(sentiment$quoted_text)
sentiment$quoted_location <- as.factor(sentiment$quoted_location)
sentiment$place_name <- as.factor(sentiment$place_name)
sentiment$place_full_name <- as.factor(sentiment$place_full_name)
sentiment$place_type <- as.factor(sentiment$place_type)
sentiment$country <- as.factor(sentiment$country)
sentiment$country_code <- as.factor(sentiment$country_code)
sentiment$name <- as.factor(sentiment$name)
sentiment$location <- as.factor(sentiment$location)

Aggregate top 50 countries

library(dplyr)
sentiment %>% 
  group_by(country) %>% 
  summarise(max=max(retweet_count)) %>% 
  top_n(50)

Selecting by max

Remove Missing Values

covid19 <- subset(sentiment,lang != "und")
sentiment1 <- subset(sentiment, country != "")
sentiment1

Exploratory Data Analysis

Top 10 Retweet count

top_10rc <- sentiment1%>%
  group_by(country) %>% 
  summarise(max = max(retweet_count)) %>% 
  top_n(10)

Selecting by max

head(top_10rc)

Maximum Number of tweets from different countries

library(ggplot2)

ggplot(sentiment1,aes(country)) + geom_bar(aes(fill=lang)) + labs(title = "Maximum Number of tweets from different countries(With multiple languages)",caption = "Source:Data from Twitter API") + theme(axis.text.x = element_text(angle = 90))

## Top tweeting location
top5cvt_loc <- sentiment1 %>% 
  filter(!is.na(place_full_name)) %>% 
  count(place_full_name, sort = TRUE) %>% 
  top_n(5)

Selecting by n

head(top5cvt_loc)

NA

# Data Visualization for Top tweeting location

ggplot(top5cvt_loc,aes(place_full_name,n)) + geom_bar(stat="identity",fill="darkgreen") + 
  labs(title="Top Tweeting location",x="Location",y="Count")

Top 10 User Tweets

sentiment1 %>% 
  count(screen_name, sort = TRUE) %>%
  top_n(10) %>%
  mutate(screen_name = paste0("@", screen_name))

Selecting by n

# Most Liked Tweets

LT <- sentiment1 %>% 
  arrange(-favorite_count)%>%
  top_n(1000,favorite_count) %>%
  select(created_at, screen_name, text, favorite_count,country)
LT

# Most liked Tweets Graph
ggplot(LT,aes(screen_name,favorite_count)) + geom_bar(stat="identity",aes(fill=country)) + 
  labs(title = "Most liked Tweets Vs Favorite count",x="Screen Name(User Name)",y="Favorite Count") + theme(axis.text.x = element_text(angle = 90))

# Most retweeted tweet

 retw <- sentiment1 %>% 
  arrange(-retweet_count) %>%
  top_n(1000,retweet_count) %>% 
  select(created_at, screen_name, text, retweet_count,country)

#Most Retweeted tweets
ggplot(retw,aes(screen_name,retweet_count)) + geom_bar(stat="identity",aes(fill=country)) + 
  labs(title = "Most Retweeted tweets Vs Retweet count",x="Screen Name(User Name)",y="Retweet Count") + theme(axis.text.x = element_text(angle = 90))

Text mining

text = sentiment1$text   # save tweets to another data set "text"

text = gsub("(RT|via)((?:\\b\\W*@\\w+)+)","",text)         #remove names
text = gsub("http[^[:blank:]]+","",text)                   #remove html links
text = gsub("@\\w+","",text)                               #remove people names
text = gsub("[[:punct:]]","",text)                         #remove punctuation
text = trimws(text, which = c("both", "left", "right"))    # remove white space

text = gsub('[[:digit:]]+', '', text)                      # remove digits
text = gsub("[\r\n]", "", text)                            # remove line breaks
text = iconv(text, to = "ASCII//TRANSLIT")                 # remove not readable standard text
text = iconv(text, "ASCII", "UTF-8", sub="")               # remove not readable standard text
text = tolower(text)                                       # lower case

sentiment1

Remove stop words

library(dplyr)
library(stringr)
library(tidytext)
remove_reg <- "&amp;|&lt;|&gt;" #regular expression
newstops <- c('covid_19','covid-19','covid 19','coronavirus','covid19', '#coronavirus', '#coronavirusoutbreak', '#coronavirusPandemic', '#covid19', '#covid_19', '#epitwitter', '#ihavecorona', '#StayHomeStaySafe', '#TestTraceIsolate','de','la','en','el',"se","las","los","por","con","del","les") #hashtags that need to be removed

tidy_tweets <- sentiment1 %>%  
  mutate(text = str_remove_all(text, remove_reg)) %>%  #remove regular expression
  unnest_tokens(word, text, token = 'tweets',strip_url = TRUE) %>% #work tokenizations
  filter(!word %in% stop_words$word, #remove stopwords
         !word %in% str_remove_all(stop_words$word, "'"),
         !word %in% newstops, #remove those hashtags
         str_detect(word, "[a-z]"))

Using `to_lower = TRUE` with `token = 'tweets'` may not preserve URLs.

Top 10 word frequency

library(frequency)
#get words and their frequency
frequency_global <- tidy_tweets %>% count(word, sort=T) 
#get the top 10
frequency_global %>% top_n(10)

Selecting by n

pride_prejudice <- tidy_tweets %>% filter(source == “Twitter for iPhone”)

pride_prejudice

library(tidyr) tweets111 <- pride_prejudice %>% inner_join(get_sentiments(“afinn”)) %>% count(source, index = linenumber %/% 80, sentiment) %>% pivot_wider(names_from = sentiment, values_from = n, values_fill = 0) %>% mutate(sentiment = positive - negative) library(ggplot2) tweets111 %>% ggplot( aes(index, sentiment, fill = Senti)) + geom_col(show.legend = FALSE) + facet_wrap(~book, ncol = 2, scales = “free_x”)

Text analysis

data visualization

library(wordcloud)
wordcloud(frequency_global$word,frequency_global$n, min.freq = 100,
          scale=c(4.5, .3), random.order = FALSE, random.color = FALSE,
          colors = brewer.pal(8, "Dark2"), res=800)

Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter

Only US tweets and word frequency

#get cleaned tweets that are located in the US
tidy_us <- tidy_tweets[is.na(tidy_tweets$country_code)==F & tidy_tweets$country_code == "US", ]

#get words and their frequency
frequency_us <- tidy_us %>% count(word, sort=T)
#get the top 10
frequency_us %>% top_n(10)

Selecting by n

US tweet word frequency visualization

wordcloud(frequency_us$word,frequency_us$n, min.freq =50, scale=c(4.5, .2), random.order = FALSE, random.color = FALSE
          ,colors = brewer.pal(8, "Dark2"), res=800)

Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
  "res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord *  :
  "res" is not a graphical parameter

By using “bing” get the sentiments and visualize the sentiments

tweets_bing<-tidy_tweets%>% 
  # Implement sentiment analysis using the "bing" lexicon`
  inner_join(get_sentiments("bing")) 

Joining, by = "word"

perc<-tweets_bing %>% 
  count(sentiment)%>% #count sentiment
  mutate(total=sum(n)) %>% #get sum
  group_by(sentiment) %>% #group by sentiment
  mutate(percent=round(n/total,2)*100) %>% #get the proportion
  ungroup()

label <-c( paste(perc$percent[1],'%',' - ',perc$sentiment[1],sep=''),#create label
     paste(perc$percent[2],'%',' - ',perc$sentiment[2],sep=''))

library(plotrix)
pie3D(perc$percent,labels=label,labelcex=1.1,explode= 0.1, 
      main="Worldwide Sentiment") #create a pie chart

Most Common Positive and Negative words

top_words <- tweets_bing %>%
  # Count by word and sentiment
  count(word, sentiment) %>%
  group_by(sentiment) %>% #group ny sentiment
  # Take the top 10 for each sentiment
  top_n(10) %>%
  ungroup() %>%
  # Make word a factor in order of n
  mutate(word = reorder(word, n))

Selecting by n

#plot the result
ggplot(top_words, aes(word, n, fill = sentiment)) +
  geom_col(show.legend = FALSE) +
  geom_text(aes(label = n, hjust=1), size = 3.5, color = "black") +
  facet_wrap(~sentiment, scales = "free") +  
  coord_flip() +
  ggtitle("Most Common Positive and Negative words (Global)") + 
  theme(plot.title = element_text(size = 14, face = "bold",hjust = 0.5))

NRC Plot

library(radarchart)
tidy_tweets %>%
  # implement sentiment analysis using the "nrc" lexicon
  inner_join(get_sentiments("nrc")) %>%
  # remove "positive/negative" sentiments
  filter(!sentiment %in% c("positive", "negative")) %>%
  #get the frequencies of sentiments
  count(sentiment,sort = T) %>% 
  #calculate the proportion
  mutate(percent=100*n/sum(n)) %>%
  select(sentiment, percent) %>%
  #plot the result
  chartJSRadar(showToolTipLabel = TRUE, main = "NRC Radar")

Joining, by = "word"

Sentiment Word Frequency

tidy_tweets %>%
  # implement sentiment analysis using the "nrc" lexicon
  inner_join(get_sentiments("nrc")) %>%
  # remove "positive/negative" sentiments
  filter(!sentiment %in% c("positive", "negative")) %>%
  #get the frequencies of sentiments of words
  count(word,sentiment) %>% 
  group_by(sentiment) %>%
  top_n(10) %>% 
  ungroup() %>%
  mutate(word=reorder(word,n)) %>% 
  #plot the sentiment word frequency
  ggplot(aes(x=word,y=n,fill=sentiment)) +
    geom_col(show.legend = FALSE) +
    facet_wrap(~ sentiment, scales = "free") +
    coord_flip() +
  ggtitle(label = "Sentiment Word Frequency (Global)") + 
  theme(plot.title = element_text(size = 14, face = "bold",hjust = 0.5))

Joining, by = "word"
Selecting by n

Create sentiment_score

library(tidytext)
library(syuzhet)
w <- get_sentiment(sentiment1$text)
sentiment_score= as.data.frame(w)
colnames(sentiment_score)[1] <- "sentiment_score"
tweets <- cbind(sentiment1$text,sentiment_score)
colnames(tweets)[1] <- "text"
hist(tweets$sentiment_score,breaks = 5)

Convert to positive and negative sentiments

Then we need to construct the outcome variable for these tweets, which means that we have to label them as positive & negative,

tweets$Senti <- ifelse(tweets$sentiment_score >= 0,"Positive","Negative")
colnames(tweets)[3] <- "Senti"
tweets$Senti <- as.factor(tweets$Senti)




#tweets$Negative <- as.factor(tweets$sentiment_score <= -1)
#table(tweets$Negative)
#tweets$Positive <- as.factor(tweets$sentiment_score>=1)
#table(tweets$Positive)
str(tweets)

'data.frame':   15012 obs. of  3 variables:
 $ text           : chr  "Aman dan bermanfaat \n________\nProkes Tangkal Omicron\n#COVID19 https://t.co/fM4uL6kINR" "People ask me about my #COVID19 mask.\n\nMy hubby & sis-in-law created the @artinapromo Choose Kind Foundat"| __truncated__ "Billions of people are being denied the protection from #COVID19 they urgently need. No-one is safe until every"| __truncated__ "Ayo tetap disiplin prokes\n________\nProkes Tangkal Omicron\n#COVID19 https://t.co/zHXL8ls0Fv" ...
 $ sentiment_score: num  0 2.4 2.05 0 -0.4 0 0 -1.2 -0.6 0 ...
 $ Senti          : Factor w/ 2 levels "Negative","Positive": 2 2 2 2 1 2 2 1 1 2 ...

CREATING A CORPUS

#A corpus is a collection of documents.

#We will need to convert our tweets to a corpus for pre-processing. Various function in the tm package can be used to create a corpus in many different ways. #We will create it from the tweet column of our data frame using two functions, VCorpus() and VectorSource(). We feed this to latter the Tweets variable of the tweets data frame.

library(tm)
corpus <- VCorpus(VectorSource(tweets$text))
corpus

<<VCorpus>>
Metadata:  corpus specific: 0, document level (indexed): 0
Content:  documents: 15012

#corpus[[1]]

Data pre-processing

corpus <- tm_map(corpus, content_transformer(tolower)) #First step is to transform all text to lower case
#corpus[[1]]
corpus <- tm_map(corpus, PlainTextDocument) #converts corpus to a Plain Text Document

corpus <- tm_map(corpus, removePunctuation) #Removing punctuation

stopwords("english")[1:50] #Removing stop words

 [1] "i"          "me"         "my"         "myself"     "we"         "our"        "ours"       "ourselves"  "you"       
[10] "your"       "yours"      "yourself"   "yourselves" "he"         "him"        "his"        "himself"    "she"       
[19] "her"        "hers"       "herself"    "it"         "its"        "itself"     "they"       "them"       "their"     
[28] "theirs"     "themselves" "what"       "which"      "who"        "whom"       "this"       "that"       "these"     
[37] "those"      "am"         "is"         "are"        "was"        "were"       "be"         "been"       "being"     
[46] "have"       "has"        "had"        "having"     "do"        

corpus <- tm_map(corpus, removeWords, c("covid", stopwords("english")))
#corpus[[1]]

corpus <- tm_map(corpus, stemDocument) #Stemming
#corpus[[1]]

library(SnowballC)
DTM <- DocumentTermMatrix(corpus) #Create a Document Term Matrix
DTM

<<DocumentTermMatrix (documents: 15012, terms: 4367)>>
Non-/sparse entries: 261792/65295612
Sparsity           : 100%
Maximal term length: 68
Weighting          : term frequency (tf)

most popular terms are, or words

freq <- findFreqTerms(DTM, lowfreq = 50)
freq 

  [1] "000"                         "100daysofcod"                "1st"                         "2020"                       
  [5] "2021"                        "2022"                        "30th"                        "4th"                        
  [9] "600"                         "☞ï¸\u008f"                 "€"                         "ã”micron"                   
 [13] "देशों"             "से"                      "बात"                   "मकान"               
 [17] "में"                   "कैसे"                "को"                      "के"                     
 [21] "है"                      "हैं"                   "है।"                   "हो"                     
 [25] "भी"                      "चली"                   "…"                         "–"                        
 [29] "•"                         "“"                         "“mandatesâ€\u009d"         "⬆ï¸\u008f"                
 [33] "⬇ï¸\u008f"                 "â\u008f°"                    "ã\u0081frica"                "aã±o"                       
 [37] "abpoli"                      "absolut"                     "acerca"                      "across"                     
 [41] "activ"                       "actual"                      "actualizaciã³n"              "addictologi"                
 [45] "adopt"                       "adult"                       "africa"                      "age"                        
 [49] "agenda"                      "ago"                         "agora"                       "ahora"                      
 [53] "air"                         "algãºn"                      "alguno"                      "alitalia"                   
 [57] "allem"                       "allow"                       "almost"                      "also"                       
 [61] "alway"                       "amigo"                       "amp"                         "announc"                    
 [65] "ano"                         "anoth"                       "ant"                         "anti"                       
 [69] "antigen"                     "antigentest"                 "anyon"                       "arabcup"                    
 [73] "area"                        "argentina"                   "argument"                    "arriv"                      
 [77] "art"                         "artificialintellig"          "asã­"                        "ask"                        
 [81] "attend"                      "auch"                        "aus"                         "australia"                  
 [85] "avail"                       "avanc"                       "avec"                        "away"                       
 [89] "ayer"                        "ayo"                         "ayuda"                       "back"                       
 [93] "balondeoro"                  "ban"                         "bar"                         "basmi"                      
 [97] "bassepoint"                  "battl"                       "bayern"                      "bebek"                      
[101] "becom"                       "bei"                         "beij"                        "belangrijk"                 
[105] "believ"                      "best"                        "better"                      "bien"                       
[109] "big"                         "bigdata"                     "billion"                     "bis"                        
[113] "bitcoin"                     "blackandwhit"                "block"                       "bnwphoto"                   
[117] "book"                        "boost"                       "booster"                     "boostershot"                
[121] "border"                      "borisjohnson"                "bot"                         "botswana"                   
[125] "bought"                      "brasil"                      "break"                       "breakingnew"                
[129] "breakthrough"                "brilliant"                   "brother"                     "busi"                       
[133] "cã³mo"                       "cã³rdoba"                    "cã³rdobaargentina"           "cada"                       
[137] "cake"                        "calgari"                     "can"                         "canada"                     
[141] "cancel"                      "cant"                        "capit"                       "care"                       
[145] "carnav"                      "casal"                       "case"                        "caso"                       
[149] "caus"                        "cbse"                        "cbseterm1onlin"              "cdnpoli"                    
[153] "centr"                       "centro"                      "certain"                     "ces"                        
[157] "chang"                       "check"                       "child"                       "childcar"                   
[161] "children"                    "china"                       "christma"                    "cifra"                      
[165] "citizen"                     "ciudad"                      "ciudadano"                   "close"                      
[169] "clungen"                     "code"                        "cold"                        "collect"                    
[173] "colombia"                    "com"                         "come"                        "comitã©"                    
[177] "command"                     "comment"                     "commonwealth"                "commune"                    
[181] "como"                        "compani"                     "complet"                     "completa"                   
[185] "con"                         "concern"                     "condicion"                   "confirm"                    
[189] "consid"                      "contact"                     "contagio"                    "continãºa"                  
[193] "continu"                     "contra"                      "corona"                      "coronakris"                 
[197] "coronavirus"                 "cost"                        "counti"                      "countri"                    
[201] "court"                       "cover"                       "covid19"                     "covidiot"                   
[205] "covidvaccin"                 "covidvari"                   "creat"                       "crisi"                      
[209] "ctmâ "                       "cual"                        "cuarto"                      "cuenta"                     
[213] "cuida"                       "current"                     "cuyo"                        "cybersecur"                 
[217] "dã­"                         "daction"                     "dad"                         "daili"                      
[221] "dan"                         "danger"                      "das"                         "dass"                       
[225] "dat"                         "data"                        "day"                         "dead"                       
[229] "death"                       "debe"                        "dec"                         "decemb"                     
[233] "decis"                       "deeplearn"                   "definit"                     "defuncion"                  
[237] "deja"                        "del"                         "delta"                       "demand"                     
[241] "der"                         "des"                         "desd"                        "despit"                     
[245] "detail"                      "dia"                         "dice"                        "die"                        
[249] "difficult"                   "digit"                       "digitaltransform"            "director"                   
[253] "disappear"                   "discuss"                     "disiplin"                    "distribut"                  
[257] "dit"                         "divhumaspolri"               "divis"                       "doctor"                     
[261] "doesn’t"                   "doesnt"                      "doge"                        "dolar13"                    
[265] "domest"                      "don’t"                     "dont"                        "door"                       
[269] "dose"                        "dosi"                        "due"                         "durant"                     
[273] "dus"                         "ðÿ—£"                        "ðÿ¦ "                        "ðÿ˜”"                       
[277] "ðÿ˜·"                        "ðÿ‘‡"                        "ðÿ‘‰"                        "ðÿ‘\u008dðÿ\u008f»"         
[281] "ðÿ’‰"                        "ðÿ’ÿ"                        "ðÿ”´"                        "ðÿ”µ"                       
[285] "ðÿ¤”"                        "ðÿ‡¦ðÿ‡¹"                    "ðÿ‡¨ðÿ‡¦"                    "ðÿ‡¬ðÿ‡§"                   
[289] "ðÿœž"                        "easi"                        "eastern"                     "economi"                    
[293] "ecuador"                     "educ"                        "ein"                         "elemento"                   
[297] "elig"                        "email"                       "emerg"                       "employe"                    
[301] "encourag"                    "end"                         "enero"                       "england"                    
[305] "ensur"                       "enter"                       "entr"                        "equit"                      
[309] "era"                         "escenario"                   "eso"                         "especi"                     
[313] "est"                         "esta"                        "estã¡"                       "estã¡n"                     
[317] "establish"                   "estamo"                      "estoy"                       "estudiantil"                
[321] "etc"                         "european"                    "even"                        "evento"                     
[325] "everi"                       "everyon"                     "exact"                       "except"                     
[329] "exempt"                      "exist"                       "expand"                      "expans"                     
[333] "expect"                      "fã¼r"                        "face"                        "facemask"                   
[337] "fact"                        "fair"                        "fallecido"                   "famili"                     
[341] "fan"                         "fecha"                       "feel"                        "ffs"                        
[345] "fight"                       "fiji"                        "fine"                        "first"                      
[349] "fli"                         "flight"                      "follow"                      "forev"                      
[353] "forget"                      "form"                        "forma"                       "fragen"                     
[357] "francisco"                   "freak"                       "friend"                      "frontlin"                   
[361] "fuck"                        "full"                        "fulli"                       "fyi"                        
[365] "gaan"                        "game"                        "gather"                      "gaziantep"                  
[369] "geen"                        "gegen"                       "geimpft"                     "german"                     
[373] "get"                         "getvaccinatednow"            "give"                        "givingtuesday"              
[377] "global"                      "goa"                         "goat"                        "gob"                        
[381] "gop"                         "got"                         "govern"                      "governor"                   
[385] "govt"                        "gqp"                         "grand"                       "great"                      
[389] "greghuntmp"                  "group"                       "grow"                        "guid"                       
[393] "haben"                       "hai"                         "han"                         "hand"                       
[397] "happi"                       "hay"                         "hcincanada"                  "health"                     
[401] "healthcar"                   "hear"                        "heard"                       "hello"                      
[405] "help"                        "hero"                        "het"                         "heut"                       
[409] "histori"                     "hit"                         "holiday"                     "home"                       
[413] "hong"                        "honor"                       "hope"                        "hospit"                     
[417] "hospital"                    "hot"                         "hour"                        "hoy"                        
[421] "httpstcolutcz0zvto"          "httpstconrczzxyduq"          "hubo"                        "î´îµî½"                     
[425] "ï€ï\u0081î¿ïƒï€î¬î¸îµî¹î±"   "i’m"                       "iapolit"                     "ich"                        
[429] "ihm"                         "ill"                         "immigr"                      "impact"                     
[433] "impacto"                     "impfen"                      "impfpflicht"                 "impfschutz"                 
[437] "impfung"                     "import"                      "impos"                       "imposs"                     
[441] "includ"                      "incluyendo"                  "increas"                     "individu"                   
[445] "indoor"                      "infect"                      "infecti"                     "info"                       
[449] "inform"                      "informaciã³n"                "infrastructur"               "ini"                        
[453] "inicia"                      "inicio"                      "initi"                       "institut"                   
[457] "intern"                      "intervent"                   "invit"                       "iot"                        
[461] "iowahealthcar"               "iplauct"                     "iplretent"                   "ireland"                    
[465] "isnt"                        "isol"                        "israel"                      "isso"                       
[469] "issu"                        "ist"                         "it’"                       "izleyemedim"                
[473] "jã³vene"                     "jab"                         "jame"                        "jampj"                      
[477] "jangan"                      "januari"                     "jason"                       "joebiden"                   
[481] "johnsonout"                  "jour"                        "judg"                        "just"                       
[485] "kan"                         "keep"                        "kenney"                      "kerap"                      
[489] "kid"                         "kind"                        "know"                        "kong"                       
[493] "kryd"                        "label"                       "lahat"                       "lannã©"                     
[497] "larg"                        "las"                         "lassoci"                     "last"                       
[501] "late"                        "latest"                      "laud"                        "leader"                     
[505] "leadership"                  "learn"                       "left"                        "les"                        
[509] "let"                         "let’"                      "level"                       "life"                       
[513] "lifelab"                     "like"                        "limit"                       "lisa"                       
[517] "live"                        "llamosa"                     "local"                       "lockdown"                   
[521] "look"                        "los"                         "lose"                        "love"                       
[525] "low"                         "mã­"                         "mã¡s"                        "mã©xico"                    
[529] "maã±ana"                     "machinelearn"                "maharashtra"                 "mai"                        
[533] "major"                       "make"                        "mal"                         "mandatori"                  
[537] "mandatoryvaccin"             "mani"                        "mansuryavasyalnä±zdeäÿildir" "mapusa"                     
[541] "mart"                        "mask"                        "maskup"                      "massiv"                     
[545] "mata"                        "matter"                      "may"                         "meant"                      
[549] "measur"                      "media"                       "medic"                       "medida"                     
[553] "meet"                        "mejor"                       "meno"                        "menschen"                   
[557] "merkel"                      "mes"                         "mesmo"                       "met"                        
[561] "metavers"                    "mga"                         "mgcpharma"                   "mil"                        
[565] "mind"                        "ministro"                    "miss"                        "mit"                        
[569] "mmainsanitygoa"              "moderna"                     "mom"                         "momento"                    
[573] "money"                       "monochrom"                   "month"                       "mort"                       
[577] "mpal"                        "much"                        "mucho"                       "muerto"                     
[581] "mundo"                       "must"                        "mutacion"                    "mutat"                      
[585] "mxc"                         "nã£o"                        "nâ°"                         "natur"                      
[589] "naturalimmun"                "need"                        "nefasto"                     "negat"                      
[593] "negro"                       "never"                       "new"                         "news"                       
[597] "newvari"                     "next"                        "nicht"                       "niet"                       
[601] "nieuw"                       "nigeria"                     "niki"                        "nobajemoslaguardia"         
[605] "nohaysueroantiofidico"       "normal"                      "nos"                         "nosotro"                    
[609] "noth"                        "nov"                         "nova"                        "novacunado"                 
[613] "noviembr"                    "now"                         "nowayhom"                    "nuestro"                    
[617] "nueva"                       "nuevo"                       "number"                      "nurs"                       
[621] "octob"                       "offer"                       "olafscholz"                  "old"                        
[625] "older"                       "omicron"                     "omicronvari"                 "omikron"                    
[629] "omnicron"                    "onbegrijpelijk"              "one"                         "onpoli"                     
[633] "ont"                         "ontario"                     "ook"                         "open"                       
[637] "openseanft"                  "order"                       "other"                       "outbreak"                   
[641] "paã­s"                       "pandem"                      "pandemia"                    "pãºblica"                   
[645] "par"                         "para"                        "parec"                       "parent"                     
[649] "park"                        "part"                        "parti"                       "partir"                     
[653] "pas"                         "pase"                        "pass"                        "passeng"                    
[657] "passport"                    "pay"                         "pcr"                         "pcrtest"                    
[661] "peke"                        "pennsylvania"                "peopl"                       "per"                        
[665] "pero"                        "person"                      "persona"                     "personn"                    
[669] "petrolpric"                  "pfizer"                      "pib"                         "piec"                       
[673] "plã©niã¨rectm"               "place"                       "plan"                        "play"                       
[677] "player"                      "pleas"                       "plus"                        "pneumonia"                  
[681] "poco"                        "point"                       "polici"                      "polisisumsel"               
[685] "politik"                     "poor"                        "por"                         "porqu"                      
[689] "portug"                      "posit"                       "positivo"                    "possibl"                    
[693] "pour"                        "ppkm"                        "ppkmdarurat"                 "ppkmmikro"                  
[697] "prã©vention"                 "precio"                      "pressur"                     "prevent"                    
[701] "primeiro"                    "primera"                     "problem"                     "programm"                   
[705] "project"                     "proke"                       "protect"                     "protocol"                   
[709] "provid"                      "provincia"                   "przed"                       "public"                     
[713] "pune"                        "puntaj"                      "put"                         "quando"                     
[717] "quarantin"                   "que"                         "question"                    "quick"                      
[721] "quot"                        "rank"                        "rã­o"                        "rã­ocuarto"                 
[725] "rapid"                       "rapidtest"                   "rapport"                     "rate"                       
[729] "reach"                       "real"                        "realli"                      "receiv"                     
[733] "recent"                      "recommend"                   "record"                      "recuerda"                   
[737] "refus"                       "reinstat"                    "relax"                       "remain"                     
[741] "rememb"                      "rep"                         "repãºblica"                  "report"                     
[745] "repres"                      "repswalwel"                  "requir"                      "research"                   
[749] "resid"                       "respect"                     "respond"                     "respons"                    
[753] "restrict"                    "result"                      "return"                      "reunimo"                    
[757] "riesgo"                      "rip"                         "rivm"                        "roll"                       
[761] "rollout"                     "rtpcr"                       "rule"                        "run"                        
[765] "sad"                         "safe"                        "safeti"                      "said"                       
[769] "salud"                       "saludpublicard"              "sanitaria"                   "sã­ntoma"                   
[773] "sarscov2"                    "sat"                         "satan"                       "save"                       
[777] "say"                         "school"                      "schweiz"                     "scienc"                     
[781] "scientif"                    "second"                      "see"                         "seem"                       
[785] "segãºn"                      "self"                        "sens"                        "sent"                       
[789] "ser"                         "seri"                        "serious"                     "servic"                     
[793] "set"                         "sever"                       "share"                       "shem"                       
[797] "shock"                       "shop"                        "shot"                        "sibl"                       
[801] "sich"                        "sie"                         "sign"                        "signific"                   
[805] "sin"                         "sinc"                        "sobr"                        "social"                     
[809] "socialdistanc"               "socialis"                    "son"                         "soon"                       
[813] "sorri"                       "soul"                        "southafrica"                 "southern"                   
[817] "soy"                         "special"                     "spiderman"                   "spread"                     
[821] "staff"                       "stand"                       "start"                       "state"                      
[825] "stay"                        "staysaf"                     "still"                       "stock"                      
[829] "stop"                        "streetmonochrom"             "streetphotographi"           "strict"                     
[833] "student"                     "sua"                         "subscrib"                    "subvent"                    
[837] "suffer"                      "support"                     "suprem"                      "sur"                        
[841] "sure"                        "sus"                         "suspend"                     "swab"                       
[845] "sydney"                      "take"                        "taken"                       "tangkal"                    
[849] "tãº"                         "tatsã¤chlich"                "team"                        "tell"                       
[853] "tem"                         "tener"                       "test"                        "testaram"                   
[857] "testen"                      "tetap"                       "tetra"                       "thank"                      
[861] "they’r"                    "think"                       "thursday"                    "tiempo"                     
[865] "tienen"                      "til"                         "time"                        "tire"                       
[869] "titr"                        "toda"                        "today"                       "todo"                       
[873] "togeth"                      "tomar"                       "tonight"                     "took"                       
[877] "total"                       "toward"                      "train"                       "transport"                  
[881] "travel"                      "travelban"                   "tri"                         "trust"                      
[885] "tudo"                        "tuesday"                     "turismo"                     "twitter"                    
[889] "two"                         "ù„ù„ø§ø³øªø«ù…ø§ø±"          "ù\u0081ø±øµø©"               "uci"                        
[893] "ùƒùˆø±ùˆù†ø§"                "uma"                         "una"                         "und"                        
[897] "undergo"                     "unemploy"                    "unless"                      "unvaccin"                   
[901] "upon"                        "urgent"                      "use"                         "uso"                        
[905] "vã£o"                        "vaccin"                      "vaccinemand"                 "vaccinequ"                  
[909] "vaccineswork"                "vacina"                      "vacuna"                      "vacunaciã³n"                
[913] "vacunacion"                  "vacunacovid19"               "vaksinasi"                   "valora"                     
[917] "varanasipolic"               "variant"                     "vaxx"                        "venezuela"                  
[921] "vermont"                     "vida"                        "viral"                       "virus"                      
[925] "virusairborn"                "visit"                       "visitor"                     "von"                        
[929] "voor"                        "vor"                         "wã¤re"                       "wait"                       
[933] "want"                        "wash"                        "wave"                        "way"                        
[937] "we’r"                      "wear"                        "wearamask"                   "weather"                    
[941] "week"                        "welcom"                      "well"                        "wgal"                       
[945] "whaspeci"                    "whatsapp"                    "whether"                     "wie"                        
[949] "wien"                        "wife"                        "will"                        "winter"                     
[953] "wir"                         "without"                     "wonder"                      "wont"                       
[957] "word"                        "work"                        "worker"                      "world"                      
[961] "worldaidsday"                "wuhan"                       "yarn"                        "year"                       
[965] "yes"                         "yesterday"                   "yet"                         "your"                       
[969] "zambia"                      "ziekenhuizen"                "zone"                        "zum"                        
[973] "zur"                        

#Remove sparse terms
sparse_DTM <- removeSparseTerms(DTM, 0.98)
sparse_DTM

<<DocumentTermMatrix (documents: 15012, terms: 51)>>
Non-/sparse entries: 46512/719100
Sparsity           : 94%
Maximal term length: 11
Weighting          : term frequency (tf)

#Convert the DTM to a data frame
tweetsSparse <- as.data.frame(as.matrix(sparse_DTM))
#Fix variables names in the data frame
colnames(tweetsSparse) <- make.names(colnames(tweetsSparse))

Add the dependent variable

tweetsSparse$Senti <- tweets$Senti
tweetsSparse

#tweetsSparse$Negative <- tweets$Negative
#tweetsSparse$Positive <- tweets$Positive

convert true,false to yes,no

#tweetsSparse$Negative <- as.factor(ifelse(tweetsSparse$Negative == TRUE, "Yes","No"))
#tweetsSparse$Positive <- as.factor(ifelse(tweetsSparse$Positive == TRUE, "Yes","No"))

BUILDING MACHINE LEARNING MODEL

Split data in training/testing sets

Negative split with 80%train

library(caTools)
set.seed(123)

split <- sample.split(tweetsSparse$Senti, SplitRatio = 0.8)

trainSparse <- subset(tweetsSparse, split == TRUE)
testSparse <- subset(tweetsSparse, split == FALSE)

Logistic regression

Predict Positive, Negative sentiment

tweetLog <- glm(Senti ~ . , data = trainSparse, family = "binomial")
#PREDICTING SENTIMENT
tweetLog_predict_test <- predict(tweetLog, type = "response", newdata = testSparse)
tweetLog_predict_test <- ifelse(tweetLog_predict_test > 0.5,"Positive","Negative")
#Create confusion matrix
cmat_logRegr <- table(testSparse$Senti, tweetLog_predict_test)
cmat_logRegr

          tweetLog_predict_test
           Negative Positive
  Negative      333      452
  Positive      116     2102

# Accuracy
accu_logRegr <- (cmat_logRegr[1,1] + cmat_logRegr[2,2])/sum(cmat_logRegr)
accu_logRegr

[1] 0.81

Decision Tree- Ctree model

predict positive, Negative sentiment

library(party)
library(partykit)
tweetCTREE <- ctree(Senti ~ . , data = trainSparse)
#plot
plot(tweetCTREE)

#predict
predictCTREE <- predict(tweetCTREE, newdata = testSparse, type = "response")
#create confusion matrix
cmat_CTREE <- table(testSparse$Senti, predictCTREE)
cmat_CTREE

          predictCTREE
           Negative Positive
  Negative      681      104
  Positive       74     2144

#Accuracy
accu_CTREE <- (cmat_CTREE[1,1] + cmat_CTREE[2,2])/sum(cmat_CTREE)
accu_CTREE

[1] 0.94

Decision Tree- cart model

Predict Positive, Negative sentiment

library(rpart)
library(rpart.plot)
library(rattle)
tweetCART <- rpart(Senti ~ . , data = trainSparse, method = "class")
#plot
prp(tweetCART)

fancyRpartPlot(tweetCART)

#predict
predictCART <- predict(tweetCART, newdata = testSparse, type = "class")
#create confusion matrix
cmat_CART <- table(testSparse$Senti, predictCART)
cmat_CART 

          predictCART
           Negative Positive
  Negative      283      502
  Positive       71     2147

#Accuracy
accu_CART <- (cmat_CART[1,1] + cmat_CART[2,2])/sum(cmat_CART)
accu_CART

[1] 0.81

Naive Bayes

Predict Positive, Negative Sentiment

library(e1071)
tweetNB <- naiveBayes(Senti ~ . , data = trainSparse, laplace = 1)
#predict
predictNB <- predict(tweetNB, newdata = testSparse, type = "class")
#create confusion matrix
cmat_NB <- table(testSparse$Senti, predictNB)
cmat_NB 

          predictNB
           Negative Positive
  Negative      522      263
  Positive      414     1804

#Accuracy
accu_NB <- (cmat_NB[1,1] + cmat_NB[2,2])/sum(cmat_NB)
accu_NB

[1] 0.77

Association Rules

Remove stop words

library(dplyr)
library(stringr)
library(tidytext)
remove_regg <- "&amp;|&lt;|&gt;" #regular expression
newstopss <- c( '#epitwitter', '#ihavecorona', '#StayHomeStaySafe', '#TestTraceIsolate','de','la','en','el',"se","las","los","por","con","del","les") #hashtags that need to be removed

tidy_tweetss <- sentiment1 %>%  
  mutate(text = str_remove_all(text, remove_regg)) %>%  #remove regular expression
  unnest_tokens(word, text, token = 'tweets',strip_url = TRUE) %>% #work tokenizations
  filter(!word %in% stop_words$word, #remove stopwords
         !word %in% str_remove_all(stop_words$word, "'"),
         !word %in% newstopss, #remove those hashtags
         str_detect(word, "[a-z]"))

Using `to_lower = TRUE` with `token = 'tweets'` may not preserve URLs.

Top 10 word frequency

library(frequency)
#get words and their frequency
frequency_globall <- tidy_tweetss %>% count(word, sort=T) 
#get the top 10
frequency_globall %>% top_n(200)

Selecting by n

transcovid19 <- tweetsSparse
library(tidyverse)
transcovid19 = transcovid19 %>% mutate_all(as.logical)
# Clean up names
colnames(transcovid19) <- gsub(x=colnames(transcovid19),
                               pattern="const\\.", replacement="")
order_trans2 <- as(transcovid19,"transactions")
#transcovid19 <- data.frame(transcovid19)
summary(order_trans2)

transactions as itemMatrix in sparse format with
 15012 rows (elements/itemsets/transactions) and
 51 columns (items) and a density of 0.061 

most frequent items:
covid19 omicron  vaccin variant     que (Other) 
  14976    2916    1656    1548    1080   24336 

element (itemset/transaction) length distribution:
sizes
   1    2    3    4    5    6    7    8    9   10   12 
3276 3168 3384 2304 1152  900  504  216   36   36   36 

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    1.0     2.0     3.0     3.1     4.0    12.0 

includes extended item information - examples:

includes extended transaction information - examples:

write.csv(transcovid19,file = "covidtweetsSparse.csv")

itemFrequencyPlot(order_trans2,topN=30)

inspect(order_trans2[1:15])

NA

itemFrequency(order_trans2[,1:4])

   aã.o     amp booster     can 
  0.024   0.065   0.031   0.031 

itemFrequencyPlot(order_trans2, support = .10)

itemFrequencyPlot(order_trans2, support = .15)

itemFrequencyPlot(order_trans2,topN=10,type="absolute")

itemFrequencyPlot(order_trans2,topN=10,type="relative")

Defining Rules

Now that we have have an idea of how the data looks. We proceed to create rules. Rules are formed by defining the minimum support and confidence levels. Also the minlen option lets us to set the minimum number of items for both the LHS and RHS.

rules <- apriori(order_trans2, parameter = list(supp = 0.005, conf = 0.20, minlen =2)) 

Apriori

Parameter specification:

Algorithmic control:

Absolute minimum support count: 75 

set item appearances ...[0 item(s)] done [0.02s].
set transactions ...[51 item(s), 15012 transaction(s)] done [0.00s].
sorting and recoding items ... [51 item(s)] done [0.00s].
creating transaction tree ... done [0.00s].
checking subsets of size 1 2 3 4 5 done [0.00s].
writing ... [1044 rule(s)] done [0.00s].
creating S4 object  ... done [0.00s].

rules

set of 1044 rules 

From the summary we can infer the following –

#1044 rules were formed #Minimum and maximum values for support, confidence and lift are displayed #Out of the 1044 rules formed the counts of rule length is also displayed

Once the rules are formed, we can have a look at the some of the formed rules.

options(digits=2)
inspect(rules[1:10])

Just looking at these rules makes little sense, let’s sort the rules based on confidence levels.

rules<-sort(rules, by="confidence", decreasing=TRUE)
options(digits=2)
inspect(rules[1:10])

Now things are starting to make sense, looking at the first transaction – there is a high likelihood of covid19 tweets. Similar to sorting rules confidence, they can also be sorted by lift levels.

rules<-sort(rules, by="lift", decreasing=TRUE)
options(digits=2)
inspect(rules[1:10])

Making Product Recommendations

rules <- apriori(order_trans2, parameter = list(supp = 0.005, conf = 0.20, minlen =2), appearance = list(default="rhs",lhs="test"))

Apriori

Parameter specification:

Algorithmic control:

Absolute minimum support count: 75 

set item appearances ...[1 item(s)] done [0.00s].
set transactions ...[51 item(s), 15012 transaction(s)] done [0.00s].
sorting and recoding items ... [51 item(s)] done [0.00s].
creating transaction tree ... done [0.00s].
checking subsets of size 1 2 done [0.02s].
writing ... [5 rule(s)] done [0.00s].
creating S4 object  ... done [0.00s].

summary(rules)

set of 5 rules

rule length distribution (lhs + rhs):sizes
2 
5 

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      2       2       2       2       2       2 

summary of quality measures:
    support        confidence      coverage         lift          count    
 Min.   :0.012   Min.   :0.24   Min.   :0.05   Min.   : 1.0   Min.   :180  
 1st Qu.:0.012   1st Qu.:0.24   1st Qu.:0.05   1st Qu.: 2.2   1st Qu.:180  
 Median :0.014   Median :0.29   Median :0.05   Median : 5.1   Median :216  
 Mean   :0.021   Mean   :0.42   Mean   :0.05   Mean   : 5.7   Mean   :317  
 3rd Qu.:0.017   3rd Qu.:0.33   3rd Qu.:0.05   3rd Qu.: 7.1   3rd Qu.:252  
 Max.   :0.050   Max.   :1.00   Max.   :0.05   Max.   :13.2   Max.   :756  

mining info:

Now we sort the rules by lift.

rules<-sort(rules, by="lift", decreasing=TRUE)
options(digits=2)
inspect(rules)

NA

The top product recommendation for people who took negative covid test will travel and get vaccinated.

#Conclusion #As we have discussed in the article, association rules are used extensively in a variety of fields. We have also seen how Association rules analysis can done with the help of the Apriori algorithm. This is quite helpful in getting product recommendations for customers. So, go ahead and start mining your own datasets.